home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / MacPerl 506 appl folder.sit / MacPerl 506 appl folder / Mac_Perl_506r1m_appl / eg / myrup < prev    next >
Text File  |  1994-12-26  |  891b  |  30 lines
  1. #!/usr/bin/perl
  2.  
  3. # $RCSfile: myrup,v $$Revision: 4.1 $$Date: 92/08/07 17:20:26 $
  4.  
  5. # This was a customization of ruptime requested by someone here who wanted
  6. # to be able to find the least loaded machine easily.  It uses the
  7. # /etc/ghosts file that's defined for gsh and gcp to prune down the
  8. # number of entries to those hosts we have administrative control over.
  9.  
  10. print "node    load (u)¥n------- --------¥n";
  11.  
  12. open(ghosts,'/etc/ghosts') || die "Can't open /etc/ghosts: $!";
  13. line: while (<ghosts>) {
  14.     next line if /^#/;
  15.     next line if /^$/;
  16.     next line if /=/;
  17.     ($host) = split;
  18.     $wanted{$host} = 1;
  19. }
  20.  
  21. open(ruptime,'ruptime|') || die "Can't run ruptime: $!";
  22. open(sort,'|sort +1n');
  23.  
  24. while (<ruptime>) {
  25.     ($host,$upness,$foo,$users,$foo,$foo,$load) = split(/[¥s,]+/);
  26.     if ($wanted{$host} && $upness eq 'up') {
  27.     printf sort "%s¥t%s (%d)¥n", $host, $load, $users;
  28.     }
  29. }
  30.